1 .BOXES
2 .
3 .
4 .
5 NT=10
6 clear 
7 BC=127
10 &(22)=255
20 for C=1to 100step 1
30 FC=Bmul A
40 A=rnd (140)-70
50 B=rnd (80)-40
55 MU=A
56 &(18)=B
57 &(20)=C
60 box A,B,5,5,3
61 box -A,B,5,5,3
62 box A,-B,5,5,3
65 box -A,-B,5,5,3
70 if C>99goto 90
80 next C
90 for E=1to 10step 1
95 MU=E
100 if E=10clear 
110 if TR(1)=1goto 10
120 next E
130 goto 90
:return ;run 
